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SPECTRUM 128 /# 
ELSUMMUM 



Spectrum, como lider. marca. un nuevo hito en 
la bistaria de Ids ordenadores familiares. 

Spectrum 128. 

Gran capacidad de memoria. Teclado y 
mensajes en castellano, teclado independiente 
para opeiaciones numencas y de tralamiento 
detextos... 

Sinclair e lnvestromca han desarrollad :■ una 
autentica novedad. En rungi'in lugar del muiido, 



salvo en los Distribuidores Exclusivos de Investronica, 
podras encontrar el nuevo Spectrum 128. 

Se el primero en tener lo ultimo. 
SPECTRUM 128. NOVISIMUS 
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El teclado profesional SAGA 3 ELITE es la fronlera final en el diseno de teclados para el 
Spectrum / Spectrum +. Con una presencia impecable, y un tacto de precision, usted 
podradisfrutarde lacomodidad yrapidezde un autentico teclado profesional tipo IBM. 
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PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



A UN PRECIO ESPECIAL 

OFERTA LIMITADA 
Y EXCtUSIVA PARA 
NUESTROS IECTORES 
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MONITOR TELEVISOR 



d de imagen que da u 
nitor para Spectrum e 
> muy superior a 
que pueda dar el mejor televiso 

poco important 



e del i 






vaya a dar al Spectrum. . _. _ 

jo incluye graficos, el monitor se 
declara imprescindible. mientra 
que para jugar o hacer pequeiios 
programasei 









UN BUEN PROGRAMADOR 
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COMPARACIONES LOGICAS 

Puede hacerse la si-sj—, 
guiente linea con el\T^. 
Speclrum: INPUT -TEX- vT^ 
TO»; ■ -TEXT02- ^*=^ 

AND variable=0M<TEXTO3 
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puesta es negativa, ccomo po- 

Juan L. Montero 
Ubeda (Jaen) 
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foboratono de investigation. 

COLECCION CASSETTES 
SOFTWARE EDUCATIVO 
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Para mds information: Ediciones S.M. O General Tahanera, 39. 28044 Madrid. 
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■' tf^ 


e— 9- 


3,00 


0,75 0,44 


; »7 


mAT 


4,00 


K.80 0,45 


, ,/ 


dondc Q c> la encrgia suminisrrada en 
forma dc calor. m cs la mssa dc In *us- 


5,01) 


11,05 11,45 








# 


tancia y JT es el increment dt tempt- 


No« 


□note con ctaciiiud cl valor 




[tr !■.■ .-:iJl.JL-|il;lil IjluTl'flt.l. ptcO SC ob- 








los vabrcs abtcntdos para 






UJI n. 


difierenmofehoenttoiif. 




ar-fL- 


La ret 


cidn entrc Q y AT a lineal, 








sde la for™ Q = adT + li, 






dondc a es la pendicnte de la recta v b 






la ordena 


a en el cngen. 



El ajuste por minimo cuadrados es un clasico de la 
matematica y de la programacion. Juan Carlos 
Angulo, aventajado estudiante de Ciencias Fislcas, 
estudia el problema desde el punto de vista 
matematico. Como complement/}, un programa 
realizado en BASIC permite la realizacldn del ajuste 
para todos los usuarios Spectrum, con una doble 
opcion: elegir un determlnado modelo matematico o 
decidirse por la seleccidn automatica por parte del 
ordenador. 



degraficas 



purn n - 1 grados dc libtrtad, si, 
fl niimcro de pares dc dnros olii. 

Mode los Hnealizables 






5 REM Presentation 


35 BORDER 5: PAPER 6: INK 


20 BORDER 5: PAPER 6: INK 0.1 C 


36 CL5 : PRINT AT 1, 1 i j "ATENCI 


LS 


ON": FLASH 1: PRINT AT ll,3|"m"l 


25 PRINT AT O.Oj'-ftJUSTE DE GRA 


FLASH 0: PRINT AT U,5j" = Error 


PICAS PDR EL MET0D0 DE MINI 




MOS CUADRADOS" 


37 PRINT AT lb, 3; "EJEMF'LOt a=5 


30 PRINT AT 21,4; Juan Carla 


, error de a="l FLASH 1: PRINT A 


s Angulo, 1985.": PAUSE 200 


T ti,29j"m": FLASH 0: PRINT AT 1 


31 LET d*="": DIM c*{&,23! 


6, 30 J 2 




38 PRINT ftT 18,2;"aigni-fica gu 
e '** puede vanar": PRINT AT If 


. . y=b+a*n" i LET c*!2) '"Logan tmi 




,2i"entre 2,5 y 10"j PRINT AT 21 




,5j "Pulse cualquier tecla": PAUS 


y=b*(«"a) n ) LET c*(4) = "E!:ponenci 


E 




3P CLE s 50 SUB 8OO1 REM Menu 


34 LET c* (5)="Hiperbolico 


40 IF d$="*" THEN GO TO 80 


..y*b+*/*"( LET c*(6)="0tras 


42 CLS : IF e*<>"6" THEN GO T 


. . .g(y)=b + a*-f <k>" 


45 CLS 




1 50 


REM De-finir -funcianes 


100 INPUT "Mufliero de parejas de 


INPUT "Funcion de la abscis 






f(«)=';i* 


102 If'o>31 THEN LET tt=1.9S99 




INPUT "Funcion de la ordena 


6 




gt^-"»jt 


103 IF n>31 THEN BO TD 10S 


56 


REM TrsnB-for-msr -funcicnes 


104 GO TD 600+n-l 


57 


LET nl=LEN i*s LET n2=LEN j 


105 IF d*~"a" THEN GO TO 15B 


I 




109 DIM v. (n) : DIM y (n! 


59 


LET s«="": LET fc*«"" 


110 LET a-0: LET d=0 


60 


FOR m=l TD nl 


120 PRINT "datos !■: " 


61 


LET r*=i*(m TO rn) 


130 FOR m=l TO n 




IF [-*•'>""" THEN LET u»=rS 


140 INPUT (ml ,x(m) 


bZ 


IF r«=- u «" THEN LET u*="" 1™ 


141 IF (1=2 OR 1=3) AND K tm)<-0 
THEN GO TO 140 


64 


LET 3*=s»+u* 


142 IF 1=5 AND K<m>=0 THEN GO 


65 


NEXT m 

FOR m=l TO n2 


TO 140 
145 LET a=a+FN f (m) ! LET d=d+FN 


6? 


LET qS=j*<m TO n>> 


■f (m)*FN *(m> 




IF qSO"V" THEN LET v*=q* 


150 NEXT ro 


« 


IF q*- 1 ^* 1 THEN LET v*="y<m 


151 PRINT AT 0,0i "datos y": LET 
e=0! LET b-Ol LET c=0 


70 


LET t*=t *+■/* 


152 FOR m=l TO n 


75 


NEXT m 


154 INPUT (rn) .y(m> 




REN Definir -funciones 


155 IF tl=3 OR 1=4) AND y(m)<=0 




DEF FN f(m>=VAL s»: DEF FN 


THEN GO TD 154 


9 (ft) 


*VAL t* 


156 LET b^b+FN g tm) : LET e=e+FN 


IF d* = "a" THEN 60 TO 10*. 


g(m)*FN g(m)s LET c=c+-FN -f!m!*F 




REM Intraducir datas; 


N g(m> 









157 NEXT m 
156 GO TO 230 
. 200 REM Resultados 

214 IF d»="a" THEN GD TD 216 

215 LET i-=SQR lpp*q) 

216 PRINT AT 6.22;r 
220 GD TD 267 

230 LET p=ln*c-a*b>/(n*d-a*a> 
232 LET pp=p 

235 LET q=(n*c-a*b)/(n*e-b*b) 
240 LET o=(b*d-a*c>/<n*d-a*a> 

242 LET ep=tt*SGR AB5 t <B-o*b- 

243 LET eo=ep»SQR fd/n) 



243 IF 1=3 DR 1=4 THEN LET i 
EXP ea 

246 IF 1=4 THEN LET p=EXP p 

247 IF 1-4 THEN LET ep=EXP s 
250 PRINT AT O, O; "Coe-f i ri enti 

a'": PRINT AT 3, O; "Coe-f icientt 
b'"i PRINT AT 6,0!"CdB-f . de c< 
elacion": PRINT AT 9,0;"Error 
eficiente 'a'": PRINT AT 



272 CLS : PRINT AT 1 . 2; "COEFICI 
ENTES DE C0RRELAC10N": PRINT AT 
3,0i"l) Lineal";AT 4,0;"2> Logar 
itmicn"iftT 3,0|"3) Potenci al " ; AT 

6,0;"4> Exponencial "; AT 7,0;"5> 



IT. 



FOR a = l TO 5: PRINT AT ! 
(k) : NEXT x 
PRINT AT 21,5:"F'ulse cu, 



2,0; "E 

260 PRINT AT G,22;p: PRINT AT 3 
,22;o: PRINT AT 9,22;ep: PRINT A 
T 12.22;eo 

261 PRINT AT 18,2;c*(l > 

262 PRINT AT 10, O; " 

": PRINT AT 

"I PRINT AT 1,0; " 



280 IF INKEY*=' ,M THEN GD TD 23 


261 BORDER Oi CLS 

2B2 PRINT AT 1 1 , 6 : "E5PERE LIN MO 
MENTO. ' 

203 PRINT AT 12,2;"EST0V AJUSTA 
NDO LA ESCALA. " 

290 IF 1-6 THEN GD SUB 2500 

295 IF 1=6 THEN GO TO 500 

300 FDR r=l TO n 

305 LET k=0 

310 FOR q=l TO n 

320 IF x<q>>=x(r> THEN LET It' 

325 IF k=n THEN LET nn=!i(r) 

326 IF k=n THEN GO TO 350 
330 NEXT q 

340 NEXT r 

350 FOR s=l TO n 

360 LET g=0 



370 f 



= 1 TQ i 



IF I 



THEN LET i 





390 IF g=n THEN 


LET :<K»!i (s 


263 FLASH 1: IF 1=3 DR 1=4 THEN 


40O IF g=n THEN 


SO TO 421 


PRINT AT 12,21; "m" 


410 NEXT t 




264 IF 1=4 THEN PRINT AT 9,21; 


420 NEXT = 

421 FDR r=l TD n 




265 FLASH Ot PRINT AT 4,0;" 


422 LET k-0 

423 FOR q=l TO n 




266 GO TO 211 


424 IF y(q) >=y ir 


THEN LET 


267 PRINT AT 7,0;" 








425 IF k=n THEN 


LET ym=y<r 


270 PRINT AT 21,4; "Pulse cualqu 


426 IF k=n THEN 


GO TC 429 


ier tecla"! IF d*0"a" THEN GO 


427 NEXT q 




TO 279 


42B NEXT r 




271 IF INKEY*="" THEN GO TO 27 


429 FOR 9-1 TO n 

430 LET g=0 






THEN LET g=g 

433 IF g=n THEN LET y;<-yls> 

434 IF g=n THEN GO TO 437 

435 NEXT t 

436 NEXT s 

437 CLS 

440 FOR u=l TO n 

450 LET as=S+(K(Li)-Kro>*240/(x«- 
xm>: LET bb=8+ (y (u> -ym> *160/ <yx- 

452 PLOT aa,bb: PLOT aa+l,bb: P 
LOT aa+2.bb: PLOT aa-l,bb: PLOT 
aa-2„bbi PLOT aa,bb-2: PLOT aa.b 
b-ll PLOT aa f bb+li PLOT ea,bb+2 

460 NEXT u 

500 GO SUB ; 



■.O«?0: 



520 


GO TO 3000 




624 


550 


REM Tabla de valores de la 


625 




Student para un nivel 




626 


QfTf 


anza del 957. 




627 


598 


LET tt-O: 50 TO 105 




62S 


599 


LET tt=0: GO TO 105 






600 


LET tt-Oi 50 TO 103 




630 


601 


LET tt=12.706: GO TO 


05 


800 


602 


LET tt=4. 30271 GO TO 


05 


BIO 


603 


LET tt=3.1825: 50 TO 


05 


815 


604 


LET tt=2.7764: GO TO 


05 




603 


LET tt=2.5706: GO TO 


05 


817 



LET tt=2.4469: GO TO 

LET tt=2. 3646s GO TO 

LET tt=2.3060: GO TO 

LET tt=2.2622 

LET tt=2.22Si 

LET tt=2.2010 

LET tt-2. 178S 

LET tt*2. 1604 

LET tt=2 

LET tt-2 

LET tt=2 

LET tt=2 

LET tt=: 
LET tt=: 

LET tt=2,OB60 

LET tt=2.0796 

LET tt=2.0739 

LET tt»2.0687 

LET tt=2.0639: 

LET tt=2.0595i GO TO 

LET tt=2.0555: GO TO 

LET tt=2.051S: GO TO 

LET tt=2.04B4: GO TO 

LET tt«"2.0452: GO TO 

LET tt=2.0423: SO TO 

REM Menu 

PRINT AT 1. 13; "MENU" 

PRINT AT 3, 1; "Eleccii 



GO TO : 

60 TO 1 

GO TO : 

GO TO 1 

448: GO TO : 

315: GO TO I 

199: SO TO : 

09S: GO TO : 

GO TO : 

GO TO : 

GO TO : 

GO TO : 

GO TO : 

GO TO : 

GO TO 



PLOT 



, 142i DRAW 232, O 




Lomatica": PRINT AT 7.: 

tO PRINT AT 1 

■0 PRINT AT 1 
,.. y=b+a*LN 
iO PRINT AT 1 
.. y=b*ti!^a> 
■0 PRINT AT 1 

PRINT AT 1 

5 PRINT AT 15, 1; 
.. g(y)=b+a*f (>!) 
PRINT AT 1 
.- Otros" se 



891 IF INKEYS< 
81 

882 IF INKEY*=' 



" THEN EO TO 3 
THEN GO TO SB 



BS3 LET dS=lNKEY* 

884 IF d*0 H a u AND dS<>"b" THEN 

GO TO B31 
BS5 IF d*-"*" THEM GO TO 2000 
886 FLASH 1: PRINT AT 7,lf"B"i 
'FLASH 

890 IF INKEY*<>'"' THEN GO TO B 



900 IF INKEY*="" THEN GO TO ' 



901 LET e*=INKEY* 

911 FOR f = l TD 6 

912 IF STR* -f=e* THEN GO TO 92 


915 NEXT f 
918 GO TO B90 
920 LET 1=VAL e* 

925 CLS 

926 PRINT AT 6 f 3jcSU>: PRINT A 
T 10,4;"Desea recti-ficar? (s/n)" 

927 IF INKEYSO"" THEN GO TO 9 
27 

929 IF INK£Y*="" THEN GO TD 92 

929 IF INKEY*="s" THEN GO TD 8 
00 

930 GO SUB 990+10*1 
940 RETURN 

1000 LET 5*=":<(m)"i LET t$="yfm) 

■': RETURN 

1010 LET s»="LN Ktffl) u i LET t*="y 

lm>": RETURN 

1020 LET sS="LN K<m)"i LET t«="L 

N y (m> ": RETURN 

1030 LET s»="K(m)"i LET tS="LN v 

(m)": RETURN 

1040 LET s*="l/« <m>": LET t*-"y( 




fyffilJEr^- 2 '- ■ ' Gn d a P anadc 


.1,- ..O, ™ modd™. "caamtmem, cn caIC ^ ,„ M 








,l,iv prioQ^nentt tat:l1 despe|Br la re ™" n ™ 




cspqU )• dc L otpre- R = 10 b+ ~T~ 


fJ^tT "" T ' si6ng(y) = af(i)H 


'■. |..iri lu qui: l.'bifa 


||r SSSI"" 


fbncitoinveB.dc'ri,). 


yiaf-t RETURN 


2030 LET al=al+K<m>: LET dl=dl+x 


* 1050 RETURM 


(m)*ntm> 


1100 FOR h=Kiti TD km STEP < CKK-xm 


2031 IF ;:(m)-.=0 THEN GO TD 2033 




2032 LET a2=a2+LN K (in) ; LET d2=d 


1101 60 SUB 1102*1 


2+ILN : ; <m)5*<LN X (ml > 


1102 50 TO 1120 


2033 IF K<m)=0 THEN SO TO 2040 


1103 LET v=o+p*h: RETURN 


2034 LET a5=aS+l/« (m) : LET d5=d5 


1104 LET v=o+p*LN hi RETURN 


+ 1/ ()! (m)*x (m) ) 


1105 LET v=o*<h~p>: RETURN 


204O NEXT m 


1106 LET v=a*<p-"~h>: RETURN 


205O LET bl=0: LET b3=0: LET cl- 


1107 LET v=o+p/h: RETURN 


0: LET c2=0: LET c3-0l LET c4=0: 


HOB LET v=0+p*h; RETURN 


LET c5=0: LET el=0: LET e3=0 


1120 LET 5-8+<v-ym)*160/<y*-ym> 


2055 CLS 5 PRINT "dates y" 


1125 IF 0<=s AND s<=175 THEN PL 


2057 LET zx3=0 


OT S+(h-i:m) #240/<HM-xm> ,» 


2060 FOR m=l TO n 


1130 NEXT h 


2070 INPUT (m) .y'.m) 


1140 RETURN 


2075 IF y(m)<=0 THEN LET zk3=1 


2000 CLS 


2080 LET bl=bi+y!m): LET el=Bl*V 


2O01 INPUT "NuraerD de parejas de 


(m)*y<m): LET c l=cl+:: <m) *y Im) 




2061 IF y(m><=0 THEN GO TO 20S3 


2002 CLS : PRINT "datos k" 


2082 LET b3=t>3+LN y (m) : LET e3=e 


2003 DIM i! in) i DIM y<n> 


3+lLN y(m))*lLN y(m>>; LET c4^c4 


2005 LET ai-O: LET a2=0i LET a5= 




0: LET (11=0: LET d2=0: LET d5=0 


2083 IF n(m)<=0 THEN GO TO 20S5 


200H LET zwl=0: LET SS«2»0 


2084 LET c2=c2+y <m> *LN m (m) 


2010 FOR m=l TO n 


2085 IF !i!m)<=0 OR ytmK=Q THEN 


2020 INPUT <m> ,« <m) 


GO TO 2087 


2025 IF K(m)<-0 THEN LET z!;l = l: 


2084> LET c3=t3+<LN :t(m))*(LN y(m 


IF K(m)=© THEN LET zk2=1 





E__3 E__3 [ 



Eleccion automatic:) 



mentals ic van 1 ajustar a un moddo No obstante, el 


programi de ajustc ileal, logsritmico. potcncial. ciponcn- 




on inicnsantc la cial e hiperbolko], v sc iscogersi cl mas 


Siempte St puede encontrar un poll- demon automat 


a del moddo dc alto. Evldcntementc, habri modclos 


2087 IF K<m)=0 THEN BO TO 2095 


2113 LET q3=tn*c3-a2*b3)/(rt*e3-b 


20B8 LET c5=c5+y<m)/)i <m> 


3*b3) : .LET q4= (n*c4-al*b3) / (n*s3 


2095 NEXT m 


-b3*b3> 


2099 LET pl=0: LET p2=0i LET p3= 


2115 DIM rfSi 


0: LET p4=0s LET p5=0i LET ql=0: 


2116 FOR *-i TO 3s LET r(-f)«0i N 


LET q2=0: LET q3^0i LET q4=0: L 


EXT -f 


ET q5=0 


2120 LET r(l)=S0R (pl*ql) 


2100 IF n*dl-al*al=0 THEN GO TO 


2121 IF zitl=0 THEN LET r!2)=SQR 


2102 


<p2*q2> 


2101 LET pi=<n*cl-al*bl>/<n*dl-a 


2122 IF zxl=0 AND 2x3=0 THEN LE 


l*al): LET p4^(n*c4-al*b3>/(n*dl 


T r (3)=SOR <p3*q.3) 




2123 IF zx3=0 THEN LET r<4)=50R 


2102 IF n*d2-a2*a2=0 THEN GO TO 




2104 


2125 IF zk2=0 THEN LET r(5)=SDR 


2103 LET p2=(n*c2-a2*bl>/<n*d2-a 


<p5*q5) 


2*a2) : LET p3= <n*c3-a2*b3> / (n*d2 


2130 FOR k=l TO 5 


-a2*a2) 


2135 LET t-0 


2104 IF n*05-a5*a5=0 THEN BO TO 


2140 FOR -f-1 TO 5 


2106 


2150 IF r(l:)>»r(f) THEN LET t=t 


2105 LET p5=<n*c5-a5*bl)/fn*d5-a 




5*a5) 


2155 IF t=5 THEN GD TO 21BO 


2110 IF n*el-al*bl=0 THEN BO TO 


'160 NEXT f 


2112 


2170 NEXT k 


2111 LET ql=(n*cl-al*bl)/tn*el-b 


21S0 LET 1=1: 


UblJl LET q2=(n*c2-a2*bl>/(n*el 


21B1 LET a=al*<l=ll+a2*(l=2)+a2* 


-bl*bl>: LET q5=(n*c5-a5*bl) / (n* 


!l=3>+al*(l=4)+a5t(l=5> 




21S2 LET b=bl*<l=l)+bl*Q=2>+b3* 


2112 IF n*e3-b3*b3=o THEN BO TO 


!l-3)+b3t(l»4)+bI* (1=5) 


2114 


2193 LET c=cl*(l = l>+e2*<l=2)+<r3* 



J&sz 


-st^-^^rfs 




■^^0 




'SMW'MM^, 


ff^ "i^rsz'Z'z 


























Miiiii 


§E?^" 


i=^S 
































3j3|g|E|EEEr 


El error, 

como sumando 


d.emos A ± AA y B± OB. F.I vtdor 


— IS 3 'r~ - ~~ 






coma factor 


fay que liacer notar que un error 


^■^aS1^=- 




optimo c:n esios c»5os eg el de ratal 1, 


7^>;'.*pr 






tepp - 


,encMesd«ir,,- = 


3,-, D bieo toy-, ne .qui scntido u „ beta. <te error ™ta 


- s^ 






/ <l=3)+c4*<l=4>+c5 


11=5) 


ET k = k + l 


■ ■! 21B4 LET d=dl* (1 = 


!+d2*U=2)+d2* 


2625 IF k=n THEN LET vm=FN g(r) 


■fj U"3>+dl*<l=4)+d5 


(1=5) 


2626 IF k=n THEN 50 TO 2629 


3 21S5 LET e=el*(l= 


>+el*<l=2)+e3* 


2627 NEXT q 


(l=3)+e3*<l=4>+el 


<1 =5) 


2628 NEXT r 


2187 LET r=r <k) 




262? FOR s=l TO n 


2188 LET e*=STR* 




2630 LET g=0 


2190 GO TO 930 




2631 FOR t=l TO n 


2500 FOR r=l TG n 




2632 IF FN g<tX«FN g !s) THEN L 


2505 LET k-0 




ET g=g + l 


2510 FOR q*=l TO n 




2633 IF g=n THEN LET yw=FN g(s) 


2S20 IF FN f <q> >= 


N -f (r) THEN L 


2634 IF g=n THEN SO TO 2637 


ET k=k + l 




2635 NEXT t 


2525 IF k=n THEN 


LET ;;m=FN i (r> 


2636 NEXT = 


2526 IF k=n THEN 


GO TO 2550 


2637 CLS 


2530 NEXT q 




2640 FOR U=l TO n 


2540 NEXT r 




2650 LET aa=8+<FN * (u)-K#) *240/ ( 


2550 FDR 5=1 TO n 




XK-smJl LET bh=8+<FN g <u> -ym) * 16 


2560 LET g=0 






2570 FOR t = l TO n 




2652 PLOT as, bb; PLOT aa+l,bb: P 


25B0 IF FN ftt)<-FN -f(*J TH 


LOT aa+2.bb: PLOT aa-l.bb: PLOT 


ET g=g + l 

2590 IF g^n THEN 


LET kx=FN -f (s) 


aa-2.bb: PLOT aa,bb-2i PLOT aa. b 
b-1: PLOT aa.bb+I: PLOT aa,bb+2 


2600 IF g=n THEN 


50 TO 2621 


2660 NEXT u 






2700 RETURN 


2620 NEXT 5 




3000 INPUT "Otra? <s/n)",n* 


2621 FOR r=l TO n 




3010 IF n*<>"s" AND nUO"n" THEN 


2622 LET k-0 




eo TO 3000 


2623 FOR q=l TO n 




3020 IF n*="s" THEN RUN 31 


2624 IF FN gtq}?=FN g'.r) THEN L 


3030 IF n*="n" THEN NEW 









SERVICIO DE EJEMPLARES ATRASADOS 




ux ."SI* *j& 




MULTISEARCH 



Una rutina 
muy util 



La rutina en cddigo maquina que 
proponemos a continuation permlte 
encontrar y cambiar practicamente 
cuatquier taxto dentro de un programa 
BASIC. Aunque esto ya supone un valor 
en simismo, no acaban aqulsus 
posibitidades. 




isimbicn que Spectrum, el nombic i 




sees 


:5:-r:vi 










INC 


HL 


sass 












PUSH 


HL 


0000 
aeeo 




- ™jj" 


;.i£il!l.> 






POP 


at'princt- 












pic dei'ie 


f!^. 


,">;-?■:■■ 










eSl _ 


FINDMP 


5BU£ ccsise 


!?-s*.i.s 


CALL 


FT!. ; r:i if; 






LD 


HL 

:N_LEt...t1L 


seas ;>aoi 


30011 




:-" •-■■!_ 




88335 










3 5E24 


9M3& ■ 








sjs;; 


fWSfti PIT 












5BBS 61 


0001: 


DEFc 






00837 .: 




de la long 


5B09 


00814 






=Ili"li 


3M38 


INC 


HL ' 














XOfi 




5BE9 CF 


38315 £&S'J 








OR 


(HL) 


SBBfi 15 


00815 


DEFB 






88Ssl 


JP 


hz, errors 


5BBE 










00343 i 






SBBE 23 
















5B0C fiF 










00844 . 






5SSD Bi 










-■■: $024? 


LD 


DE, (PPOGi 


seee asps 








5B2D IB 
5B££ 


3CSi6 


DEC 


BE 


5S18 23 


:■;■-:■=■;■ 






532£ 13 


C-i'?4? L 


HE INC 


OE 


-si: ^ 










80845 


INC 


DE 


:::: Be 


.:■■-; ;-ri 








5'3!3?e 


INC 


DE 


5B15 23F4 


MSI? 






■ 5B31 ED53S 




LD 


(■ULLENI D 



MULTISEARCH 



queda codavfa alguna 

por cxplorar, Esto cs I 
tomprobar fiimplcmci 

con el rater 801 1, que 

tl final dc la /una dc 



blc. Es la que hemos llamado 
NXTVAR(!9B8].AIn>lvtir, 
d [Mr 1 l[. ulijm.I.l i:i .lircL\-i^'i 
<le mmiraH. dc la variable 
sclcccionida. 



lipo Variablrnolfianilz! 



nc Inngitud ni> nub v si tila pmgramn cl r« 

a menor dc 255 i r w. En d VJ, y suscituirk 

enso de NI. b comprobacidn nidn dt NS. 

sc limits al caso dc la cota Uns vh situi 



igiluJ-tie Nt (l(ne» 35). 






El punmro 
lc VS (Hnca 



ndicc IX wilt 45), guardan 



■5635 

r&jrataa. 

5c,"? i-3 

5B& -: 


IM054 




INC 


DE 
DE 


5BJ? :■- 


eeess find 


PUSr 


."E 


SB38 HJiSra 


seese 




L0 


c 


5B3S due; 

5B3E 
BS3E lfi 


iilSi-Jf-:. 


WTCtt 


PU5r 
POP 

L0 


:.. 


SB3F BE 
5549 S03B 


eaas-i 




JR 


3r 


5B42 S3 
5B43 13 


ssaei 




INC 


:e 






5B46 

-:B4:i i-^-Efi 

5B49 ~E 

^54^ :-:^5" 


08-371 


sedD 


8087-5 


5B40 23IB 


*B873 


5S4r 3813 

SBgl 

5BE1 

:■:■-■.■: =me 
5S51 
5851 B5 


08fC4 
00875 


EB52 CDB45B 


«9«79 


5555 

ssE-5 iifO&i? 





LD Hi... iNJ-ENi 







567E 13 


49116 






sbbi eb 


9915; 


EX 


DE.HL 












9915; 


Jfi 


NV T 1 .' 


6B7F 3=7F - 


99I1S NE-'T 


LD 


h~~i y/' 


US 


99154 
99155 






5B£L DBFE 


80119 






5884 4F 


99155 (K 


--:-■ _: 


E,fl;Bc no 


5BS5IF 


9912s 








99157 . 




tiimSi 


55 =4 1882 


99121 






■ " ■ 


B9155 


LD 


ML. ILK. LEW 


SBS5 OF 


esiii=: 




93H 










B8S7 11 




:■£-: 


59. =rt =t 


--:' 






L3 Lena ds 


SBSfc 


eeia<i 














5533 234E5C 


3fi§= ■: : >i" 




riL.iyflPj. 










5BS3 B7 ^ 












LD 






93127 


:■£■: 


HL.OE 






IMC 


ML 


555E 03 


9812 s 


RET 


: t ,^';-- = 






LD 


□ (ML) 
DE.HL 




39129 






5ESC 99 


jelj? 


fiBT' 




5699 FE9D 


39139 










EX 


D5. HL 




9*131 






SBBE ?i 




bi_ 




fill F=^r 

5B37 C2375E- 


sslj; 






!fr if 




L5" 


(ML! E 


585fl eeee 


99134 






sbci 






prewramos 


5B9C 13 
















5B9E iSFD 
















5P9F 15E7 


|v?T 














5Sftt 


39141 ->!:■■ 






5BCS ~T' ~" 




pJt 




SBR1 afl4BSE 












F-Uir- 












5SS5 ?E 


99iis N.-.T'.' 






HH 




OE EOL 


23635 




99144 






5C4E 


wisa 


P,: ;■:■ 




56*7 Bfl 


90145 






5CSc 




_LEN EOU 


33726 - *; 


5BR3 C3 


3914? 














5EflS FES9 

5F-SD D5 
5BHE G0B819 


3914S 

99159 
99151 


RET, 




5BC5 
5BCE- 






19B5H 



MULTISEARCH 



wlor de 

n..s prqwi 



I,- l-.VIT.R. Ante csta even 

wrla el dirigim. I I -I l-j 
;ugar de FIND. 
Supongnmos ahora cju. 



S. JQwf hacL-mus? La prl- rutins MVPOIN. qui 

era medida a lomar es igualmcnrc para los CI 

improbur si las longitudes dilercncia dc longitudt 

i las cadenas son iguales. tiva o ncgaliva- 



lari al texto. En M. u'.i.irJii- i!tri <Il- Ins datns. EstH dirct:- 

bomir.Porelfosehace'nccr- M—LEN, incrcmcmandosc 

sario cambiar de signo BC dps was. Un LD1R no, re- 

(l/nes 81 a 85). Una vra reiili- suelve el problems de b 

zada la tarea, no* dirijiii-L-mu^ rr.inslLrfucia ripidamentc. 

a LEN—OK, pues el cspacio Al acabat esia, DE apuma al 



. DELETE. En HL 




a 




254, 129, 55, ?00, 21 3, 2 


10 DATA 22,86,205,161,91,46,4, 


05, 1B4 




207, 1,207,25,33, 175, 182,40,249 




:,235,24,241,79,42, 1 


20 DATA 35,175,162,32,244,35,2 








130 DATA 1 15 


221,9,42, 174,92,9,3 


31 


4, 174,92,203 




30 DATA 35,34, 174, 92, 35, 175, 18 


200>LET BUM 


=0:LET ADDR=23296 


2,32,224,237,91 , 8 "i, 92, 27, 19, 19 


210 FOR 1=0 


TO 203-1 




220 READ A: 


POKE ADDR+I,fi: LET 


,213,221,70,254,221 ,229,225,26, 1 


SUM=SUM+A 






230 NEXT 1 




50 DATA 32,59.35, 19, 16, 24B. 42, 




J-23356 THEM PEEP . 


174,92, 126,221, 150,254,40,29,48 


S,40l PRINT 


'ERROR PN EL DATA": 


60 DATA 19,5,205, 1B0, 91, 33, 0,0 






, 167,237,66,68,77,225,229,205 


250 REM 




70 DATA 232, 25, 24, B, 213, 205, 18 


260 REM 


DEMOSTRACION 




270 REM 
280 LET V»= 




80 DATA 6,0,78,121,163,40,8,35 
,35,237, 376,24,2,209, 19,62 

90 DATA 127,219,254,31,24,2,20 
7,20,42,75,92, 167,237,82,216,26 


ZX-apectrum"! LET N 


*="ZX~Sperppntum": 60 SUB 290: R 


AND0M1ZE USB 
TOP 


ADDF: GO SUB 290: S 


100 DATA 254.13,202,46,91,254, 




14, 194,55,91,6,6, 19, 16,253,24 


.290 PRINT " 


to! a, soy el ZX-Spec 


11.0 DATA 231.42,75,92,213,126, 


trum"' ' : RETURN 



20 RANDOMISE USR 2?: 
30 5DT0 110 



pant.dl-,1 el jiiensaje de la Unca 
100. Sin embargo aparece el 
drlallnea HO.Temieiidouii 


un pirata que se 
frcntc a un prog! 
que si ac lee 10 h 


crr-.T. lislr^Tios l-I pr'^nir:::.. 
Y para mfaum de^pe.a- 
ciSn, vemoi que el GOTO 


BHrZ: 






GOTO 100. aunque al ejecu- 
.arsc efectua realnienle un 


ibe'rradones^iemp 


saltoa llO.Divenido.i;no? 


cuerdcnalgoaunn 






able. Hemos vista como 
nuenlro program a altera cl 
lisndo. El numero ha si do 


iHlpROCt 


cambiado, Sin embargo esto 




Todo mimcro que aparcec en 
una Lnea BASIC eon «■ mini. 


9990 CLEAR 
i 8: LET As 




el EDIT- ENTER 





PROCRAMA 2 BR§ 


9990 


CLEAR ! LET V=Oi POKE 23658 


j3j 1 


fcTT flJ="Bu5csnio5 INlumer-os a' 


(Tie 


!ito""l 60 SUB 9993: LET V*= 


OS 




9991 


LET fl*»"Lo substituimos por 


(N)L 


meras o (Tleritu?"! GO SUB 9 


993t 


LET NS=fl* 


9°92 


RANDOMIZE USR 232961 STOP 


9993 


PRINT AT O.GjAS: PAUSE O: L 


ET Bt 


=INKEYS: IF B»<>"N" AND r5*< 




THEN 130 TO 9993 


99V4 


INPUT "Escribs el d*t'd " i AS 


: IF 


B*="T" THEN RETURN 


9995 


LET V=VAL AS; LET A$=AS+CHR 


S 14 


LET 1=PEEK 23627 *2S6*PEEK 


: 23*26 


t ROR J=I+1 TO 1+5: LET AS= 


B9+CHRS PEEK J: NEXT Ji RETURN 



ranre. Igual puedc docirs 
Nf. De cslc modi) la su!, 











C C* 


E F 


G H 


. . t 


•ft, 


A 


- -J 


k. " 


- r 


m «■ ■*■ 














■a 


- 




** O 


r >» 


r r 


**»* 


t: 




.,.,. 


,„„ 


»«»,» 














"" 


w 


DEL 


EFE: 


1.984 


<"»«?*. 


NO HflSA 


TRonPAS * 


NO HflSO TRAMF'A 


105 


RFI- 


■ 1 


stablece di 


iero ■ 


106 




■ ' 


ntrod 


Cf gr 


iiflCOS ■ 


LET 


t"fi= 


-inn. 


LOAD 


""CODE i CLS i 


INPUT 






















50 


Mill 
































EN 












130 


L-Li 


' ' 


pts^ 




PRINT 



AT 12,0, 


Se ar 


ruino 




INPUT 


D 






























LET 


pt- 






TO ISO 




































■ 
















































Cuai 


















F b>pt 
















to Oinero": FAUSE 1 




GO TO 




160 LET 


pts-f 


ts-B: 












table 


f V 


arieblE 


s ■ 




0(2! 


LET 








S : BORDER 4: 










ISO LET 


x=li 


LET y 


=U: 




It- 


IBS REM 


■ 1" 






nt. 




a ■ 






















a,Ol NEX 












195 REM 


■ Bo 


net- a 


art 







260 LET c=INT i 



230 IF IMKEY*="p" OB JNKE¥t="( 



GO SUB 440: LET i 
250 BO TO 200 






- PEEK (23300+0=255 1 



320 POKE 23300+c-,2S5i PAUSE £ 
GO TO 230 



LET cnnt=cont+li GO SUP 750: 

340 NEXT a: FDR a=4 TO 7j IF c= 
a THEN LET cont=CQnt*2: GO SUB 

350 NEXT a: FOR a-B TO 111 IF c 



SBO NEXT ai FOR s 



°::t?,tL% 



^WMffiX 


r a 


FOR B-2B 


TO SI- 


IF 


4O0 NEX 


r ; 


FOR --4 


TE) 27; 


J ° 








t*7i GO 


SU 






















c-s THEN 
























FOP s=36 












t+0.5: 


'dQ 


SUB 1120 












■r 








































RETURN 






440 IF 










13,15; B 




T Ij FLASH 














450 IF 




?7.5 THEN 








1GHT 1; FLASH 








GO 








4*0 RETURN 










■ 




Bfc ■ 










I 


¥■ f 7 y 




o * 1* I 










PRINT " 
























































- dno =e 
















nn ^*ndo 




turno al s 


. Spec 


ru 


"aoo PRir 




- Pars in 


entar 


an 


























- Para pi 


ntarse 


0a 



tt. '. •; tf. 



... „„„„,. „ «.= 






510 PRINT - - Para pe 










is - Lp5 






5 cartas son los s 


gui 




RINT =LASH 1; SR! 






" PULSE UNO TEC I. A 




COMT INUAR 


520 PAUSE 0: CLS 


PR 


NT AT 2,0 ' 




















... y asi 


sue 


ssivamente 


"s3Q PRINT AT 0,4] 


BRI 


3 HT ii-0 X 


„* j» 7 y media ^ 


- I 


0": PRINT R 






r : ?*RftlNT : PRINT 


,." 


>all aro«iio 




















consigue el impor 


































a jugada d 








1 " PULSE UNA TECLA 












345 REM ■ Bensrs 






mplo ■ 






550 PAUSE 0! CLS 






T p<l)=0: LET punt 






1 LET pts=S00: LET 




: LET :i=15 


j LET y=Oi GO SUB 


5B0 




IGHT 1; FLASH 1]AT 






NA TECLA PARA CONT 


INUAR"; PAUSE 


0: SO TO 120 






560 REM ■ Genera 






ensdor y estaolece 






■ 












nt: LET y-0: LET r 




PRINT AT 1 


9,0j "Turno Sr. Spectr 








pllll LET 








5S0 LET d=INT {R 






HEM LET ==6. Si 






590 IF d-1 THEN 






595 REM ■ Lvalue 












m 






600 IF cont ;-7.5 






IP, Os "El Br. Spec 


rum 


se ha pasa 



cJi)",: GO SUB 66O1 GC 








0,0; "El Sr. Spectrin 








620 LET C-INT (RMD 


401 I GO TO 6 


S 630 BO BUB 330 






N LET punt- 






no yo! !"'s GO TO 73< 










e": GO TO 73 








N PRINT "El 


Sr . Spectrum gana" 


GO TO 730 


670 IF p(iK'7.5 T 




11,0s "Usted gana": 


LET pts=pt9+ 


b+b: GO TO 720 




673 REM ■ Cnmprueb 










6B0 IF PEEK (23300 


c 1-233 THEN 


SO TO 610 






j5: PAUSE 75: 


GQ TO 7O0 




700 INK 0: PAPER 4 




LET y=y+t>: IF y>2B 


THEN LET y= 


0: LET !!=B: 




710 GO TO 590 






IN LET pts=p 






730 INFUT "Otra pa 




: IF a«="s" OR a*-" 


3- THEN GO T 






740 STOP 




745 REM ■ Visual 1: 








746 REM ■ Ases ■ 




750 IF c-0 THEN P 




' iH-,''»? flT ' : ' : +2 i i ! ' 


**^ "jflT '+3, 


y;" l*.l*"*AT H+4*y 


;" wmm "iat ;■; + 


5 76o"lF^l THEN TU P 


RINT PAP-ER 7 




■■ A ";HT n+2,yj" 




yi" k_WJ "iAT *+4,» 


;■■ A ";AT H.+ 


5 i v i" "" **~" : RETUI 






kJ'lAT K+1,M 


" 1^ ")AT «*S,yf 




*-," SS "SAT !+4-, ; 


i"** - ":AT :* 










! INK 4;AT K,y|"l rTaWsAT «*l,yl 


■UWlAT ::+2,yi 


MU",AT H+ 3, 







■■/;" r*T ",«T a+4,vj" 


-™- "-AT 


























790 REM ■ Doses ■ 










































i ; ' X 'iftT H+2,yj" 














,y[" T "i»T M+3,yr 






[" * * ";AT «+2, 








+5,yj" 2": RETURN 








y;" ^ ^ 






















5 "-AT + "+- ! 




91s' KEM M Cinco- 


■ 




















5,yj " 7": RETURN 










































«'" .. '* ; 2,f*. T R^-URN " 


"'5I.fS 




(" X X "JOT :■+.'. 


; " X " 












,y;" X X?'"iflT ,. 






















" y ")AT «*2,yj" 
















,# ";AT K+ 












5,y(" 2"; RETURN 














835 REM M Treses ■ 














940 IF c=8 THEN PRI 




























" 'i Q " ! " T flT + ^U'" ., 


o"'" T AT*^+ 




: " y ^ ";AT ,.-.;. 


i " >» 








































755 REH ■ U-bsI 








i" X X "i^T ::+Z,;f 














,>■[" X "iAT ::+3„y;' 




























860 IF q=I0 THEN PR 




























|" ^ if- "jflT ii+S.yf" 




























*5,y;" 3": RETURN 








Vi " ■ I 






870 IF c-11 THEN PR 






,yi" 1 1 "jAT :; + 














+4,yj" T X": R 








[■' j» f ";AT :.+2,y;" 














.y;' 1 ";flT .1+4, y;' 1 


X ";flT k 




















yi" 1 ' ■' 






875 REM ■ Cuatroa ■ 






,/;" 1 1 "MM « + 






















?; o"o "-ot "+2 1 " 4 ' 


"'^AT*'+3 




















> " ■ ■ 






*5,y;" 4"i RETURN 






,/;" 1 I "iOT :; + 






















7% INK 2(AT n,y;"4 






995 REM ■ Sfise 


■ 






!' JI "i«T :i+2, yi " 






1000 IF c*2Q THEN 








,/;'■ X X "}ftT «*3./l 


'■;flT x 




2 " iw> "'at "il'' 








*«*">•= =='-'™en JF pr 






|y;" 0» "jAT K+ 







+4 RETURN 


101O IF d-21 THEN F'RINT PAFER 




j" X I "jAT j!+3,y," X X ">AT :!*5 


,/i" X I6'';AT x+2,yi" "ifiT * 


1020 IF c=22 THEN PRINT PAPER 






,yt" ^ J«b"iAT H+2,y|" "|0T k 


+4,yj" ": RETURN 


1030 IF c=2T THEN PRINT PAPER 




i" f * "(AT K+3,¥i" A * "fAT x*2 


,y;" "(AT K+a.y;" .# ^."jAT h 


+4,yi" ": RETURN 


1075 REM ■ SotS5 ■ 


1040 IF c=23 THEN PRINT PAPER 




S"0 _ ";AT i:+2,y;" I "jAT K +3 


,yi" . 1 "(AT s+S,y}" 10";AT k 


*4,yj" ^J"0"l RETURN 


1O50 IF c-2° THEN PRINT PAPER 




i ;, I — "iOT k+2, ,J" 1 "JOT K*3 


,,-;" . 1 ";AT H+5,y(" K"';AT ■■ 




1000 IF c-30 THEN PRINT PAPER 


7( INt 5;AT «,yj"10 ";AT :- + l,y 


i">> : _ ";CT .:+;.■,;" 1 » ; AT :i+3 


,ys" ■ 1 "!AT K+5,yi" 10"iAT K 








l. ;, y — ■")*" ■:*-./; " 1 "jAT -i*3 


+-1./; " -mm? S": RETURN 


1073 REM ■ hietes W 


a 0B ? w IF fc c *T < rHE " PR ™' T PAPER . 


,! ;.'"; »{ SI . l"y,« '",AT*W3 


,y|" 000 "jAT i.-i-S.y; " P?";AT k 


lOTo'lF c =25' THEN PRINT PAPER 




;" I I ";AT :i+5,yi" TTT " S AT s*5 


,/(" X X7"<AT M+2,yj " ":0T X 














1110 IF c=27 THEN PRINT PAPER 




|" y ^ ";0T ;,+3,y;" y^^ "jHT «+2 



. REAO a: POKE 



O.ili.IW.Z 



20 8AUE "graHeiWt 




MENSUALMENTE 
PARTICIPANDO EN NUESTRD CONCURSD 



ZXpremiaramensualmente los programas que 

ha.cran ilejnir los lcctorcs. 

rara participar en este concurso abierto. todo 

aficionado a los orden adores ZXH1 y /.X Spectrum. 
debera hater llegav a la redaction de la 
revista el listado. un cassette y un texto 
explicativo. 

Hj ntre todos los programas que 

rmbamos eada mew. seran sdeeeionados 
para su publication aquellos que rcunan 
los sifTuienics criterion 

- Originalidad do la apliraeion. 

- Simplicidad del metodn de programaeion, 

l_ja uniea condition para participar 

en el concurso sera que los programas A ^^ 

no hayan sido publicados previamente en V^/ I \ t 

oinguna revista. / J> "~\f 

Ytambien... 




UN ZX MICRODRIVE* 

sera sorteado cada mes entre todos 

los programas que recibamos, 

con independencia de que sean 

publicados o no. 




Examenes 





Jt;EVI= ,, s" THEN PPIN" 



PAPER ?; "NQ": PAUSE 1 



THFM 1-ET | 




540 FOR i = l TO n 

550 LET sl=sl + ip(i>-modiai*<p(i 

BfiO NEXT i 

570 LET dB5v='5)/n! -.5 

580 FOB i-l TO 10 

590 LET q=l-n!i)i LET t-q*h(i>: 

LET ;:=::+t 

610 LET -fia=n/?n-l)-(i— j/desv'2 

620 FOR w=i TO n-1 
630 TOR p=l TO n-1 
640 LET n»»k9l:JJ} (1H LET y*»k*< 

650 LET :'=CODE :<* 

651 LET y=CODE v* 

660 IF st»y THEN GO TO 690 


070 IF X -y THEN GO TO 740 

faBS NEXT « 

6B6 50 TO BOO 

690 FOR q=2 TO 64 

700 LET ;<S=k*!p> (q>i LET y*=k» < 

710 LET k=CQBE k* 

711 LET y=CODE y* 

720 IF n-=y THEN NEXT q 
730 IF >:<*y THEN GO TO 480 
740 LET **»k»(p)I LET vl-cfpl: 
LET v2--F(p>: LET v3=blp>: LET v4 

750 LET k*(p)-k»<p+l>l LET c(p) 
=c(p+I.H LET f (p)=f (pfl)i LET b< 

760 LET k*<fl*l)«v*I LET c(p+l! = 
Uti LET f(p+l)«v2i LET B(p*l)=v3 




FICHERO BEMOBTRACION 

3-Bl»naulas verdss fl-n»*ritHos 
5-RBSpU9?tB en blanro 

n5-RespuBBts en bianco 

lflue forms tienen los vslles gls 

ICual de ests* rocas es sediment 


Lanibrss? 

1-F'stalnE 2-Androeeo 3-Carpelo 

4-e=tilP 5-fteSQIUJSta en bianco 

2Cit»l de eetaa et una rail con 

' iriu«l de e5t.is plants? e= una .a 
nerugama? 
1-PinD Z-Caroficeae 3-LiqfcWnes 

l-Estregino9 7-Androginos 3-Som 




LLEGA EL 




El sistema compacto que reune en una sola unidad los siguientes elemento: 



[FACILMENTE AMPLIABLE A 360 Kybtes. | 

PROGRAMAS D1 SPONIBLES O DE PROX1MA AP AR1CION 

• Contabilidad PNC (500 cuentas'4000 asientos) • Facturacion 

• Tratamiento de textos • N6minas 

• Cambio de Moneda • Base de Datos 

• Control de stocks 

IpODEMOS PASARLE SU PROGK^-;.-- . ' : S' ■ -| 

DE VENT A EN LOS MEJORES F1STABLECIMIENTOS DE INFORMATICA 



DistrilKitdD en tspana por S*ill.'*i S1STEMAS 10GICDS GIKONA, S.ft -Aria. San Nattiso, Z 



I ■ Tel. |972| 23 71 M 




:§«*! . bib . m t 





SUSCBIBASE 
FOR TBLEFONO 

» mas facil, 

* mas comodo, 

* mas rapido 



Telf.(91)7337969 

7 (lias por semana, 24 horas a su servlcio 

SUSCHIBASE A 




Rotacion 




eilas, Esta es siMo u 

lie las pusibiliikults i 

esie prognuna, t|' 



Se puede H»:tr el tii- 
alrededot de sus irt-.s 
:s (s. y. jt) y ampliai o 
Jmir sn tamaflo den- 
umylios 
m;irBi'iii*s. 1 jmhiOn i-s 
pi wink' iiiiiiliiiir t'l |i;ls(i. 



Pablo Barrnchiiia 





if §H J»^. „,,,=»,„, | 


70 

so poke izhse.B 

90 GO SUB 1400 

120 GO SUB 1200 

200 REM rotacion 
210 FOR n»l TO 9 
220 LET bo-b(n): 


LET co=t(n) 



3 GO TO ( 

-.< FOR n»1 




490 
500 F 



■> THEN 
520 LET amp«arap-5 
530 GO TD o 
540 IF «mp-5 THEN C 
530 LET amp"*mp-5 
560 SO TO o 



630 INPUT pasc 

EN SO TQ 630 
650 LET ang=(pa: 



720 LET K(lU-i27+« 
■5* 1/2) lamp 
730 LET v<n>=8B+<c 
5*1/2) lamp 



BIO FOR n= 


Tfl 


B20 LET ji <r 




B30 LET ylr 




B40 NEXT n 




850 GO TO 


000 



PLOT h ( 


> 


v(n 




DRAW 


s(n+l 






















4> : DRAW u 














NEXT n 












PLOT » 1 












<5>-v<8 


1) 


y(4 


, 


DRAW 


«(!)- 






>.3i"VolVB|- . 

>,3; "Gambler 
', 1B|"8 conti 

i PAUSE 

" IF CODE »»>90 OR CODE j 



A 


'■\,. 

--7 


\/]v 



THEN GD TO 1330 




1360 IF a*-"R" THE 


SO SUB 170O 


1370 LET f=(o AND 


a»»"S" OR a*» 


"R"))+I200 AND a*= 


X"> + (3O0 AND 




="Z")+(500 AN 


D a«-"U")+(S40 AND 


»«-"K") + U2©0 


AMD i»»"T"H(M(l AND tt*=*"U") 


1380 GO TO f 




1100 REM variables 




1410 DIM a(S) 








1430 DIM c(B) 




iaao dim k(bj 








1460 LET co«45=C05 


(PI/4) 


1470 LET 3in45=SIN 


<PI/4> 


1480 LET sin^.O-SIN 




1490 LET CDB30-CO3 


(PI/6) 


1500 LET ang=PI/12 




1510 LET sin ang=SIN ang 


1520 LET cos ang=C 




1530 LET amp =20 




1540 





1S50 REM ini 


iacion vert, cube 


1560 FOR n-1 


TO B 


1570 READ a(n),b{n),c(n) 


1580 NEXT N 




1390 RETURN 








1690 








1710 CLS 




1720 PRINT A 


3,3; M PERSPECTIVAS" 


1730 PRINT A 


5,5i''-e5pai=ial ( 


1740 PRINT ft 


6,5;"-caballara ( 


1750 PRINT A 


7,5|"-i=ometrica ( 


1760 PAUSE 




1770 LET k-V 


L INKEY* 


17B0 LET o"< 


3O0 AND k=l)+(7O0 AN 



V GARANTIZAMOS la 



HAGALOUD. MISMO 

AMPLIE SU SINCLAIR 16 K a 48 K 

Por 7.500 PT AS. 



COMPUTERS SERVICE 



ULA 
CPU 

Trail sist ZTX 
LM 1889 
MEM3RANAS, 




SINCLAIR >p^r, 

ZX81 X -. i 

ZX SPECTRUM Oi O 
SPECTRUM PLUS 



a. 361 -Tel. 207 1 



7 BARCELONA 




ENVIAMOS CONTRA RE£MBOLSO 



OlIlllEUmsiE&EDEEISIB 
EB CB S3 CB IE IE OB IH GB CB 

ffi IS IS BB CB CB IB IS (9 EH 



Inversorde 



Muchas \i l ms liLiiiiis mnado 

que deapues tie trabajar 

varias horas delaine del 

televisor la vista llef>a a 

cans arse y perdemos la 

posibilidad de enfocar la 

vision facilmciilc. 

Eslo es debido a la pantaila 

del ZX-B1, es decir, el color 

negro tie Ids caractere.-i Mibie 

fondo hlanco, por no hablar 

de la forma til 1 los camel tn-s. 



E,on,b„„..lbJi„md„« 
, , , ,d,h«„,„ 



81 aparecera °'™ ra emrada 










llnb<l ,tl ZQ-S1,.lud:imu-.s]u-c 


Hr.i apartrcril liliiora. alguiLii 




as, la venuja dc po- pan™ 




1 inrwfn que :.c dtsrc El mil 




3), podcr sclcccionar ros e\ca 


1va-.k-cf.Tcrr.nKH y -igusiTi 



y prepafacion ' ™^"d° ""] i'"r SsSJS^'S ™' aci6nt *i' Km <* ,c ' &&"* *>■ 

deplaca hacia loa kidns di- .ill.-, r.i p.tni nicjin Alirir.i c-:ur:in en iutiio In*. z<k:rtb!<. 

:ifUS[C kfl prinOipin. 'i. </oli I'Mrr,"- ;i .\m<'. df.'oinrnO. <|iil: ..Till I >j KTJ+'l"! iL k' . 

1.01 nurcriJ is..', run. |il«.i 1.11 mj mij.1,1 ,| t ri -, ; ,., m ,!,, lt ,,;,, J,-.i..„. m,:,| L . .Iirvn.liiin.ii.i di I,i lialiilidild dc Ciidj 

:, l | 11 ,„r,<l, 1 , l . n ,-i 1 .iL 1 i,„.r .«,.!:> .k- ,:.,.., ||( ., f| ^ ,| ,, ll | [ ,., 1 ,| n ..,, ,.,, rK , oill ,. ,„„, 1. 1 „„|„ ; , r |„, ,. p.„ ; , ,v,i;,r sokUr 

poncnlcs ciccrrdnieos y, imnquc puc- dri *~ |m j ntcJ , ri ,,| m HMK|Lll . „| ,„„„„ „„<„, 

d,n nail, d,: P LT,d„.™b <fc la MtmK ^pc-rtos tn d ,n:.,u r . .Id :.„ld;,d,.r ,.,- 

I || | I'O^rcrKlfOlLlir^ . ... ; ,i|,i, .11 In. ,-,,|| .klllu;: LAlUrl'-. \'i '■I'.C.imi.. .I.uiu .u 

ptr,.*mkipkiisyt:ic*uirlQ. dcnsadores. primrru C] y \wffi V.Z, tajo predo y sus mUliiplts venrBJas, lot 

tun iitfiirkin c.-s|ii;ci,-il .1 1. pi.kind.-.d di rctT-mcnJiimos poriquc. .idcrru.. ofrc- 

."' ri,,il " :lr '' '' : "'' """'"'' ''.':'"' cslc. tuloanJu ki parte ncgautJ en k> «,, i„i„ vrniajn !i.lti'i»n.il: paler p.ner 

<i..l, In. ..o,.ri,.iL. nuniLm, di /A . ( . ( , r , K .„, I . l1lL , J[ll , 1 . j,| ,,.,„, ( ; t , , ,;,„. ,„ s ,;,,„„.,. ;,„,.,.,.,,!.,. L( „, 

degirelmetodoniiisiulreuado. dc ;,.,<:<.> P l.,r .'tilirar k, wftil <fe emrada sumn fodlidid. 



■:„nd,l.k k,-r ,ti In. prim 
r...dc/.\ uncimnMriov 
dndura hien hcrnm.. 




video para 






Tl 2N2369 
Dl 1N4148 
1C1 74LS14 
IC2 74LS03 



2akalosdc H pir 
I inlerruptorSl.d. 
1 placi dc cobrc. 
Cable. 
Esiano. 




placa lie rcfrip-rjciim rontcimiii al rie- 
g^iivoffigurnT), 

comprobar su funtiiinimilHUo. Cui- 

milIiJ.illl...:. nurriulnicriic d ZX-81, 



p* 








% 1 

1 1 






V/A 






i: 



losvirdenadorcs Sinclair. 

estc niimero se- cs cl Spectrum, ptru no dejamos fucra 
jc pan el ZX 81, a los rcsianie' miembros rie la f'amilia. 
maneiosaapeii- K'Juc Vd. k b monie bienl 

Alfonso Man in 



Lre 




**j 



Llega combatiendo hasta las tres bases 
enemigas. <i,Tienes el valor, la resistencia 
y la destreza para ser un "Game Lord" 
(senor del juego)? 



Losjuegos mas poderosos del Universo 



pero nunca s 




QL Software 

Todo lo que listed queria saber 
; atrevio a preguntar 




Dicen las casas de 

software que el QL tlene 

tin problem a: las 

aplicaciones principales 

ya se ofrecen con el 

ordenador y es imposible 

ofrecer verslones 

mejoradas. 

Dicen las casas de 

software que el QL es un 

ordenador serio, que nadie 

piensa en juegos para esta 

maquina. 

Dicen las casas de 

software que no se conoce 

esta maquina. Que ha sido 

mat tratada fy en 

ocasiones maltratada). 

Que es como la tdnica: 

ihay que probarla! 

Con la import ante baja de 

precio, el QL sigue siendo 

una de las mejores ofertas 

calidad/ precio, aunque la 

oferta de software aiin sea 

mas bien modesta. No 

obstante ya existen 

diversos titulos en el 

mercado espanol a los que 

pasamos revista en este 

numero en forma 

exahustiva. Por todo ello, y 

digan lo que digan las 

casas de software, nemos 

considerado de absoluta 

necesidad informar a 

todos los usuarios QL de 

todo aquello que deben 

saber, pero nunca se 

atrevieron a preguntar 

sobre el software QL. 



Dossier QL 




QL QUILL 
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ire ipo mi' h. iofluKk. a fcu °™™ *nQL. 
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MESEL Qk 
HECHOPAMNOSOTROS 



SENCILLO 



Ml x 

ASEQUBLE PROFESIONAL 




01 
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■ N 
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PVP7U500PTS 


FVPSBIWI-K 


PVP H97W PTS 


- : 


PVM 199730 PTC 
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QL-CHESS 


j^ts^SJifirs 


.ftSTTS V- .' . 
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" K;"„ 



n>c luperior ol lie Nigh. Nun 
in Si»i Guud d oMbwd n 




IT7F7T1 



■klM PROGRAM DEL ANO 



1 PROCESADOR DE TEXTOS 
ildeal para escrlbir cartas e informesl 
Caraclerislicas: Visualizocian continja del 
tiempo • Conlador de polabras (indlcando 
las palabras par minulo) • Texlo normal o 
doble, en pantalla o impresora 

2 HOJA DE CALCULO 

jUtiliza tu micro pom controlar lus cuentas! 
Caracteristicas: Cifras visualizadas en tilas 
V columnas • Actuallzacian perrranents • 
Aciuaiizacion reflejada instontoneamente 
eo toda la lioja • Grabacion de los 
resiiltados para fuluras mod ificac lories 

3 GRAFICOS 

iConvisrte esos numeros en moravillosos 
grdlloos! Caracteristicas: Graficos de bams 
en Ires dimensianes ■ Grflticos da pastel • 

Histogromos. 

4 BASE DE DATOS 

jlgual que los archives de la oticino! 
Caraclerisllcas: Corgar licheros con solo 
pulsor una tecio • Clasillcacion • 
Modification • Lisladas • Biisqueda 





^J ™ m™nT OFFICE™" 

|| PARAELMICROORDENADOR 



■i ■.'i.is.a-. [jiscu 



I CONTHA-REEMeOLSO 
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QL-ASSEMBLKR 



QL-Asiicmblcr cs nil p^ut'lL im*-j?i jiki ]io 




CARTRIDGE DOCTOR , 


Bsrjzszessa 




Ixlpll • i 


CARTRIDGE 
' DOL7TOR 


'.,,\,i».\ i L 


■ ' j 









CONTROL Cw^SSff^TTS^I 
DE STOCKS 


^BssasggS!! 




csSsSESSS: 


3r£i™Er^.'u^rr ^s^jjjSS^ 
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QL MONITOR 




don e. tubiiiul on lodcn k). monirora. 
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fMUCHOMA& 









PCPYME 


;:■•;:;, 


[S5SSE 


Pq^me .„ 




tt 


SX35 
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^uc w dlrijilrf!! 






COMERC1AL6 




MASTERCONT 




El primer libro didaclico, que incluyeexpllcaciones ttelos prog ramasdeordenador 
y no requiere conocimientos ni experiencia previa, para 

HPRENDER fi PR06RHMRR 



PRECIO 12.900 Ptas. 

OFERTA ESPECIAL 

7.500 Ptas. 

(Incluldos gastos de envlo) 



N§& 
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En mimo i El imprcmdn. I=s 00- « pimlon "P™ <* «<"<" 














Y HAY MAS... 




'-'''. ':." ;'"" ,' L '"'"■ I'lnjlrncntc ifcMarjt cl QL-Paim .1. I'uri- 
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ffif) CAMAFEO.~c 

-' «^s™".'. ....... 

fp^*^ PAHB DRDENADOHE5 



CAMAFEO- rj^p. i>2 



ORDENADORES 

• QL - AMSTRAD - SPECTRUM 

PROGRAMAS 

mtabllldad OL . 20.000 pi 



*4i 



-W7- 



m 

HACEMOS1ACIL 
LAINFORMATICA 

• SINCLAIR • SPECTRAVIDEO 

•COMMODORE • DRAGON 

• AMSTRAD* APPLE 

• SPERRVUNIVAC 




B 




E 



ELECTRONICA 



fSANDOVALx 



DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX B1 
ROCKWELL'-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 






- CLUB DEL JUBGO - 






ISPS 






uidJI°o™raJS^rjS«'n™P«rt 






ta,,,,,,.^^.... 













ENVIAB •: CLJB DEL JUEGO 






4ENRAYA 



El QL tambien tiene 
an fens, i sin duds David 

SupcrRasic cs alucinance. 
csroy lorn por encomrar 

INI lil.ro l!.- </i»l>|;i. [[■:.. ■LLi- 

iun:i/u f li l..-:Hl"> ]]l:n.|u:n;l 
nj«i Knrkv. tsjitrialmciilr 

jh.:l:'i t-i i di^incis pamn- 


r? 


1 que nm d«ldi 
ambiiu las miihi 


pies 
KE1 


440 


470). 


cs IN 

«k (If 


" 


Tambien 
evs que n 


aspa 


rpora- 




s 








H 


9 




1 
1 


lo consign y que mqore 
cinm A pn»pOsirOj In ver- 
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1 ■■■ . . . i . v.- ■ ^ ■ ■■ ■ ■. : .„ '.!■ ■ - 
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dun SECRKKN-DUMl' ; 
no otisre en tl QL. pern I 
purlin: iruvrpurflrta fdcil- 

Miracle Systems Limi- I 



; — — .» I M> a I Mi 



o 



M 

o 



Version mSa Mpifla y rofcjrf. 



COMCUBSA 








COMPRO, w. 



Veil do 
Oric Aim 


unidad dc d 


=1 










ial de mstru 










discos de 


regale, To do 




77.000 pt 


etas. An K cl 


ilk) 








Cadarao, 






Tel.: (96) 374 04 42, ■ p 




^delas7,:Kf 


ude. 


J 




castclbno, cables, fucnic de«K- 
meotaoWfi, emia «Horizon(es* 
c inlcrruplor ON/OFF/RE5ET, 

por 25.000 pesetas. Jes us Zorri- 
Da Asensio. Tel: (91) 645 92 27. 

M.^mlr. (Madrid). ,, 






perdome Ait u MmesriX 



GOGX& CAMBIO 



y 



Biedma. (965) 
56 47 45. Onil 
(Alicante). 



J& 



N>. lu^uioi dc Aitilrtv, Olpmpia 
I'uifi^ Am Attnck : UcJiuir, ( .hi.-.]iii\ 
Red Fla ft Cumbal Zone. Jet Pat 
rci.iy;. Tt.idtl ]ior M.OOO pesetas 
.10.000 -.in prcw.im.iF. Juan. Tel: (91) 
650 06 lO.Comidos. Madrid 

Vendo Spectrum 16 K con csHi 
manual en castcllanu, cinta Horina. 

refiwr, a elegit (Alien 8, Skool Dai 
Knight Lore, Pole Position, Gift Pro 
the Gods, Gbostbustcts, Under Wult 
Bruce 1_ee, Kung Fu, Decathlon. Gil 
is Cold, Kokoton Wilf, etc.). Tndo 



vale i 



r 31.0C 






r. Plai>; 







Vendo Interface Oric para dos 
joysticks, 2.500 pesetas. Programas 
dc utilidad para Otic Atmoa: Aut- 
hor (Trai. Textos), 2.500 pesetas, v 
Oric Mori (Ensambladot'Dosen- 
sambladnr Codigo Mau,ui.ia), 
2.7S0 pesetas. Todo ello comprado 
e! 11-4-BS. L.itc cumpklo, 7.000 
peactaa. Angel Julio Hirti Perez. 
Tel.: (96) 374 04 42. 

Vtndo Spectnim 48 K idqufrldo 
cnenctodc I9S4 (con la unidadde ali- 

ZX, el libra .Como usar lo* colores y 
los graficos en el Speettum., el libto- 



224 ^l I2,apartirde 
(Feb/85) por 25.000 e. 




COMPRO, w 



Wi 4'> '11 .It Hnrt-flrin-j. I'ri-guriMt |vir 
Jrai. 

Vendo Spectrum 48 K con KxftB 

f-ii-.-. .il rc-J.- I'M) I'll, li JK u L ,,-nl>ir lE 
M.itia« V;ti|ucro. (.:■■' Autonomy 18-4 
C 48000 Se5t=t>(Viieaya). 
, -Imercambio prog ra mas Spcc- 
<rt>tn 16/48 K (mas de 3001 iambi™ 
pot perifencos y libros. Gabriel San- 
chez Madrid. <V Eduardo Todu, 
I 46-4-1. 0B031 Barcelona. 

Vendo Spectrum 48 K, fuente tie 

! .."■!' ;>.'.■! ■<. IU^/:.o.T-i .li- Id |iii 
•aJoradoi en huh ik- :i!)(m p<.-sc- 
.lamar si Tel: (93) 373 30 31.Prt- 
Li pot Jorge Mo lion. 
(ercambio software para cl or- 

,-,:.v ■....;' I- .-.■. ! ::., ... 

HapS. U-3 Guardiola dt Btrgucdi 

Hbrcdona). 



(«bj, <- ■ 

mtnsajes, etcj. Annan dt Bias, ry ft 

maga, 100- 3-L. 4B0O4 Bilbao. Ti 

(94) 4 1 1 29 57, dt 6 a 9,30 de la tards 

Vendo Spectrum 48 K enn tritli 

A demits alrededor de 70 program as 
uru i^r.il'.uln'-i c>]*cial (programs) 
tambi^n gran niimem dt revislas V li 
Hiiro BASIC. Todo por solo 45.000 p 
seas. TeL (94) 415 91 97, dt 6 a 9 i 
la rardc. Prcguntar por Oscar. 

Vendo a cambio consols de v 
deo jwgos Philip* G-7000 y un cam 
cho dt Juceo, por atgiin pcrifcrii— it 




KscrlbiroMami 



J"X: 



Vendo com pi et (si mo la bora to- 
ri" t"iit.-.yr alien UN. pncio a comul- 
r.ir It-Mis Swire/ Guricrrcz, C/ Etanifjn 
vdjal, 45 . L 1 iR,.h|a([.«>n).Teh(987) 



Tia. */n. Mata-Baflolas (Gcrona). Tel: 
(973) 57 36 73. Pregunlar por Pedro. 

Vendo nrdenador ORIC con do? 
memo ri as ROM incorporadas (la del 



D©®, CAMBIO 



( ME UENDO J 



Buigca. 

Vendo Spedrum 16 K (2mn>). 
Icclado profi-:i(in;il I I'.'-'Hnn. 11 „ 1 ..li J - 
don dc memo™ a 48 K n P.W). 
cassette (4 .(mil), [flevisinr li N puitiilil 

r-H'tO). impresoni GP-5* '21' ). 

T.R.Q. BJtsbiluadQr IZS V y 220 V 
(Hm). lin coniunio 75.(11)1] F™"^. 

10.000 pesetas. 

Vcndo impresi.ni Scikiwiia 
GP-50S, comprada hacc 5 mescs y 

trm/o^t:.. um.r, ..l.mtm.don. ,mlv. 
l-iji- original. Ii»]i> pin 2IMIIHI [.tfuiiU. 
Ktjialei r.illr.-. .It: papel. iamk : ll o.un- 



Wo y gratifico con un -IN k ,i i«,rni>er 
enlre mils de 2<l. Plseiibir 5 . 1 1 '.n_|ui'n. 

Apdo. 27.149, 08020 Barcelona. 
« /iCambio prnRtamas para el Spet- 
\Jtam 16/48 K. Tamhien eunbiMfi 
/proummas pot peri ft ri cos para Spec 
I tnun. Picgunlsr pui /--'=— 



(973) 24 59 81. 

Vcndo inspre.sora Seil<"-.li:b 
GP-SO A (paraleb). praHicamcmc 



papcl. Tamblcn catr 
nrerface 1 y/p rnicmd 
I id; (983) 77 04 24. Prq 




. Llatnar al (972) 36 02 41 
,i„„ r , TirNi.™*. \i™.,lf i 



prngramafi dc |u 

, graces, uiilidades 

■tc. Uirigiinc a: Jesus Preccdo. 

Ub 32070 Otemt 



<.-r p.>-lb[c (k- i.l r.-,ri.in i;.ill(l!.l ]>.J 
Ictcambiar pra R ramas y eipcrie 
\nuro Sinche-y. (.!/ Rambn Rarcs 

Vcndo ZX-81 con If 

cidn, cables. Repilo cintas aiedrc; 
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IMPRESORAS POR ARRIBA Y POR ABAJO 
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